home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 September
/
1994-09b.d64
/
dir reader
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
53 lines
10 rem copyright 1994 - compute publications inc. - all rights reserved
20 print"[147][159][196]irectory [210]eader[146] - [199]azette 1994"chr$(9)chr$(14)
30 print"[197]nter starting address for reader code":poke53280,14:poke53281,6
40 print"to begin at:"
50 inputsa$:ifsa$=""thenend
60 sa=val(sa$)
70 print"[211]tarting address:"sa
80 print"[201]nsert a disk for directory reader to"
90 print"create the machine language code on,"
100 print"and press return."
110 geta$:ifa$=chr$(13)then130
120 goto110
130 print"[195]hecking disk..."
140 open15,8,15,"i0":gosub1000
150 print"[208]lease enter filename for reader code:"
160 inputff$:ifff$=""thenclose15:end
170 iflen(ff$)>16thenff$=left$(ff$,16)
180 print"[198]ilename: "ff$
190 print"[208]lease wait, saving code to disk..."
200 gosub2000
210 print"[196]one!":close8:close15
220 end
1000 input#15,x,w$,y,z:ifx=0thenreturn
1010 close8:close15
1020 print"[196]isk error:[146]"x;w$;y;z
1030 end
2000 open8,8,8,"0:"+ff$+",p,w":gosub1000
2005 ah=int(sa/256):al=sa-(ah*256)
2007 print#8,chr$(al)chr$(ah);
2010 reada
2020 ifa>-1thenprint#8,chr$(a);:goto2010
2030 ifa=-1thenclose8:close15:return
2040 a=abs(a)
2050 ad=sa+a
2060 ah=int(ad/256):al=ad-(ah*256)
2070 print#8,chr$(al)chr$(ah);:goto2010
3000 data 162,1,32,198,255,32,165,255,32,165,255,32,165,255,32,165,255,240
3010 data 74,32,165,255,170,32,165,255,32,-102,173,-229,201,48,240,6
3020 data 32,210,255,76,-49,173,-230,201,48,240,6,173,-230,32,210,255
3030 data 173,-231,32,210,255,169,32,32,210,255,32,165,255,240,14,32,210
3040 data 255,165,198,240,244,32,-232,144,239,176,8,169,13,32,210,255,76
3050 data -11,32,204,255,169,1,32,195,255,96,72,169,48,141,-229,141,-230
3060 data 138,201,100,144,7,233,100,238,-229,208,245,201,10,144,7,233
3070 data 10,238,-230,208,245,9,48,141,-231,104,240,86,201,2,240,27,169
3080 data 2,24,109,-229,141,-229,169,5,109,-230,141,-230,169,6
3090 data 109,-231,141,-231,208,25,169,5,24,109,-229,141,-229,169
3100 data 1,109,-230,141,-230,169,2,109,-231,141,-231,173,-231
3110 data 201,58,144,8,233,10,141,-231,238,-230,173,-230,201,58,144
3120 data 8,233,10,141,-230,238,-229,96,0,0,0,32,180,229,201,83,240,23
3130 data 201,80,240,2,24,96,165,198,240,252,32,180,229,201,83,240,6,201,80
3140 data 240,239,208,239,56,96
3150 data -1